Usenet 1993 July/InfoMagic USENET CD-ROM July 1993.ISO/sources/misc/volume8/cz/part04

Text File | 1989-09-30 | 46.7 KB | 1,323 lines

Newsgroups: comp.sources.misc
subject: v08i068: cz text to PostScript system, part 04 of 14
from: [e-mail] (Brandon S. Allbery - comp.sources.misc)
Reply-To: [e-mail] (Howard Gayle)

Posting-number: Volume 8, Issue 68
Submitted-by: [e-mail] (Howard Gayle)
Archive-name: cz/part04

#! /bin/sh
# This is a shell archive.  Remove anything before this line, then feed it
# into a shell via "sh file" or similar.  To overwrite existing files,
# type "sh file -c".
# The tool that generated this appeared in the comp.sources.unix newsgroup;
# send mail to [e-mail] if you want that tool.
# If this archive is complete, you will see the following message at the end:
#        "End of archive 4 (of 14)."
# Contents:  8859-1.m4 Makefile T-61.m4 bytefreq.c cz-Gnews.el
#   dkus.code
# Wrapped by howard@dahlbeck on Mon Sep 25 07:15:15 1989
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f '8859-1.m4' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'8859-1.m4'\"
else
echo shar: Extracting \"'8859-1.m4'\" \(14218 characters\)
sed "s/^X//" >'8859-1.m4' <<'END_OF_FILE'
Xdnl 8859-1.m4 - m4 include file with ISO 8859/1 reencoding
Xdnl
Xdnl $Header: 8859-1.m4,v 1.3 89/07/07 07:17:12 howard Exp $
Xdnl
Xdnl The following is based on code written by Timothy Hayes and Glenn Reid:
X/ISOLatin1Encoding where
X   {% ifelse
X   PPOP % ignore dictionary
X   /BuiltinEncoding(*)PDEF % Display in version string.
X   save % Ignore following definition.
X   true
X   }
X   {% else
X   /BuiltinEncoding()PDEF % Display in version string.
X   false
X   }
Xifelse
X
X/ISOLatin1Encoding[%def
X/.notdef       % 0/ 0    0    0   0  NUL (null)
X/.notdef       % 0/ 1    1    1   1  SOH (start of heading)
X/.notdef       % 0/ 2    2    2   2  STX (start of text)
X/.notdef       % 0/ 3    3    3   3  ETX (end of text)
X/.notdef       % 0/ 4    4    4   4  EOT (end of transmission)
X/.notdef       % 0/ 5    5    5   5  ENQ (enquiry)
X/.notdef       % 0/ 6    6    6   6  ACK (acknowledge)
X/.notdef       % 0/ 7    7    7   7  BEL (bell)
X/.notdef       % 0/ 8   10    8   8  BS  (backspace)
X/.notdef       % 0/ 9   11    9   9  HT  (horizontal tabulation)
X/.notdef       % 0/10   12   10   A  LF  (line feed)
X/.notdef       % 0/11   13   11   B  VT  (vertical tabulation)
X/.notdef       % 0/12   14   12   C  FF  (form feed)
X/.notdef       % 0/13   15   13   D  CR  (carriage return)
X/.notdef       % 0/14   16   14   E  SO  (shift out)
X/.notdef       % 0/15   17   15   F  SI  (shift in)
X/.notdef       % 1/ 0   20   16  10  DLE (data link escape)
X/.notdef       % 1/ 1   21   17  11  DC1 (device control 1)
X/.notdef       % 1/ 2   22   18  12  DC2 (device control 2)
X/.notdef       % 1/ 3   23   19  13  DC3 (device control 3)
X/.notdef       % 1/ 4   24   20  14  DC4 (device control 4)
X/.notdef       % 1/ 5   25   21  15  NAK (negative aknowledge)
X/.notdef       % 1/ 6   26   22  16  SYN (synchronous idle)
X/.notdef       % 1/ 7   27   23  17  ETB (end of transmission block)
X/.notdef       % 1/ 8   30   24  18  CAN (cancel)
X/.notdef       % 1/ 9   31   25  19  EM  (end of medium)
X/.notdef       % 1/10   32   26  1A  SUB (substitute character)
X/.notdef       % 1/11   33   27  1B  ESC (escape)
X/.notdef       % 1/12   34   28  1C  IS4/FS (information separator 4 / file separator)
X/.notdef       % 1/13   35   29  1D  IS3/GS (information separator 3 / group separator)
X/.notdef       % 1/14   36   30  1E  IS2/RS (information separator 2 / record separator)
X/.notdef       % 1/15   37   31  1F  IS1/US (information separator 1 / unit separator)
X/space         % 2/ 0   40   32  20  space
X/exclam        % 2/ 1   41   33  21  exclamation mark
X/quotedbl      % 2/ 2   42   34  22  quotation mark
X/numbersign    % 2/ 3   43   35  23  number sign
X/dollar        % 2/ 4   44   36  24  dollar sign
X/percent       % 2/ 5   45   37  25  percent sign
X/ampersand     % 2/ 6   46   38  26  ampersand
X/quoteright    % 2/ 7   47   39  27  apostrophe
X/parenleft     % 2/ 8   50   40  28  left parenthesis
X/parenright    % 2/ 9   51   41  29  right parenthesis
X/asterisk      % 2/10   52   42  2A  asterisk
X/plus          % 2/11   53   43  2B  plus sign
X/comma         % 2/12   54   44  2C  comma
X/minus         % 2/13   55   45  2D  hyphen, minus sign
X/period        % 2/14   56   46  2E  full stop
X/slash         % 2/15   57   47  2F  solidus
X/zero          % 3/ 0   60   48  30  digit zero
X/one           % 3/ 1   61   49  31  digit one
X/two           % 3/ 2   62   50  32  digit two
X/three         % 3/ 3   63   51  33  digit three
X/four          % 3/ 4   64   52  34  digit four
X/five          % 3/ 5   65   53  35  digit five
X/six           % 3/ 6   66   54  36  digit six
X/seven         % 3/ 7   67   55  37  digit seven
X/eight         % 3/ 8   70   56  38  digit eight
X/nine          % 3/ 9   71   57  39  digit nine
X/colon         % 3/10   72   58  3A  colon
X/semicolon     % 3/11   73   59  3B  semicolon
X/less          % 3/12   74   60  3C  less-than sign
X/equal         % 3/13   75   61  3D  equals sign
X/greater       % 3/14   76   62  3E  greater-than sign
X/question      % 3/15   77   63  3F  question mark
X/at            % 4/ 0  100   64  40  commercial at
X/A             % 4/ 1  101   65  41  A
X/B             % 4/ 2  102   66  42  B
X/C             % 4/ 3  103   67  43  C
X/D             % 4/ 4  104   68  44  D
X/E             % 4/ 5  105   69  45  E
X/F             % 4/ 6  106   70  46  F
X/G             % 4/ 7  107   71  47  G
X/H             % 4/ 8  110   72  48  H
X/I             % 4/ 9  111   73  49  I
X/J             % 4/10  112   74  4A  J
X/K             % 4/11  113   75  4B  K
X/L             % 4/12  114   76  4C  L
X/M             % 4/13  115   77  4D  M
X/N             % 4/14  116   78  4E  N
X/O             % 4/15  117   79  4F  O
X/P             % 5/ 0  120   80  50  P
X/Q             % 5/ 1  121   81  51  Q
X/R             % 5/ 2  122   82  52  R
X/S             % 5/ 3  123   83  53  S
X/T             % 5/ 4  124   84  54  T
X/U             % 5/ 5  125   85  55  U
X/V             % 5/ 6  126   86  56  V
X/W             % 5/ 7  127   87  57  W
X/X             % 5/ 8  130   88  58  X
X/Y             % 5/ 9  131   89  59  Y
X/Z             % 5/10  132   90  5A  Z
X/bracketleft   % 5/11  133   91  5B  left square bracket
X/backslash     % 5/12  134   92  5C  reverse solidus
X/bracketright  % 5/13  135   93  5D  right square bracket
X/asciicircum   % 5/14  136   94  5E  circumflex accent
X/underscore    % 5/15  137   95  5F  low line, underline
X/quoteleft     % 6/ 0  140   96  60  grave accent
X/a             % 6/ 1  141   97  61  a
X/b             % 6/ 2  142   98  62  b
X/c             % 6/ 3  143   99  63  c
X/d             % 6/ 4  144  100  64  d
X/e             % 6/ 5  145  101  65  e
X/f             % 6/ 6  146  102  66  f
X/g             % 6/ 7  147  103  67  g
X/h             % 6/ 8  150  104  68  h
X/i             % 6/ 9  151  105  69  i
X/j             % 6/10  152  106  6A  j
X/k             % 6/11  153  107  6B  k
X/l             % 6/12  154  108  6C  l
X/m             % 6/13  155  109  6D  m
X/n             % 6/14  156  110  6E  n
X/o             % 6/15  157  111  6F  o
X/p             % 7/ 0  160  112  70  p
X/q             % 7/ 1  161  113  71  q
X/r             % 7/ 2  162  114  72  r
X/s             % 7/ 3  163  115  73  s
X/t             % 7/ 4  164  116  74  t
X/u             % 7/ 5  165  117  75  u
X/v             % 7/ 6  166  118  76  v
X/w             % 7/ 7  167  119  77  w
X/x             % 7/ 8  170  120  78  x
X/y             % 7/ 9  171  121  79  y
X/z             % 7/10  172  122  7A  z
X/braceleft     % 7/11  173  123  7B  left curly bracket
X/bar           % 7/12  174  124  7C  vertical line
X/braceright    % 7/13  175  125  7D  right curly bracket
X/asciitilde    % 7/14  176  126  7E  tilde
X/.notdef       % 7/15  177  127  7F  DEL (delete)
X/.notdef       % 8/ 0  200  128  80
X/.notdef       % 8/ 1  201  129  81
X/.notdef       % 8/ 2  202  130  82
X/.notdef       % 8/ 3  203  131  83
X/.notdef       % 8/ 4  204  132  84
X/.notdef       % 8/ 5  205  133  85
X/.notdef       % 8/ 6  206  134  86
X/.notdef       % 8/ 7  207  135  87
X/.notdef       % 8/ 8  210  136  88
X/.notdef       % 8/ 9  211  137  89
X/.notdef       % 8/10  212  138  8A
X/.notdef       % 8/11  213  139  8B
X/.notdef       % 8/12  214  140  8C
X/.notdef       % 8/13  215  141  8D
X/.notdef       % 8/14  216  142  8E
X/.notdef       % 8/15  217  143  8F
X/dotlessi      % 9/ 0  220  144  90
X/grave         % 9/ 1  221  145  91
X/acute         % 9/ 2  222  146  92
X/circumflex    % 9/ 3  223  147  93
X/tilde         % 9/ 4  224  148  94
X/macron        % 9/ 5  225  149  95
X/breve         % 9/ 6  226  150  96
X/dotaccent     % 9/ 7  227  151  97
X/dieresis      % 9/ 8  230  152  98
X/.notdef       % 9/ 9  231  153  99
X/ring          % 9/10  232  154  9A
X/cedilla       % 9/11  233  155  9B
X/.notdef       % 9/12  234  156  9C
X/hungarumlaut  % 9/13  235  157  9D
X/ogonek        % 9/14  236  158  9E
X/caron         % 9/15  237  159  9F
X/space         %10/ 0  240  160  A0  NBSP (no-break space)
X/exclamdown    %10/ 1  241  161  A1  inverted exclamation mark
X/cent          %10/ 2  242  162  A2  cent sign
X/sterling      %10/ 3  243  163  A3  pound sign
X/currency      %10/ 4  244  164  A4  general currency sign
X/yen           %10/ 5  245  165  A5  yen sign
X/brokenbar     %10/ 6  246  166  A6  broken vertical line
X/section       %10/ 7  247  167  A7  section sign
X/dieresis      %10/ 8  250  168  A8  diaeresis
X/copyright     %10/ 9  251  169  A9  copyright sign
X/ordfeminine   %10/10  252  170  AA  ordinal indicator, feminine
X/guillemotleft %10/11  253  171  AB  angle quotation mark left
X/logicalnot    %10/12  254  172  AC  not sign
X/hyphen        %10/13  255  173  AD  soft hyphen
X/registered    %10/14  256  174  AE  registered sign
X/macron        %10/15  257  175  AF  macron
X/degree        %11/ 0  260  176  B0  degree sign
X/plusminus     %11/ 1  261  177  B1  plus or minus sign
X/twosuperior   %11/ 2  262  178  B2  superscript two
X/threesuperior %11/ 3  263  179  B3  superscript three
X/acute         %11/ 4  264  180  B4  acute accent
X/mu            %11/ 5  265  181  B5  micro sign
X/paragraph     %11/ 6  266  182  B6  pilcrow
X/periodcentered%11/ 7  267  183  B7  middle dot
X/cedilla       %11/ 8  270  184  B8  cedilla
X/onesuperior   %11/ 9  271  185  B9  superscript one
X/ordmasculine  %11/10  272  186  BA  ordinal indicator, masculine
X/guillemotright%11/11  273  187  BB  angle quotation mark right
X/onequarter    %11/12  274  188  BC  fraction one-quarter
X/onehalf       %11/13  275  189  BD  fraction one-half
X/threequarters %11/14  276  190  BE  fraction three-quarters
X/questiondown  %11/15  277  191  BF  inverted question mark
X/Agrave        %12/ 0  300  192  C0  capital A with grave accent
X/Aacute        %12/ 1  301  193  C1  capital A with acute accent
X/Acircumflex   %12/ 2  302  194  C2  capital A with circumflex accent
X/Atilde        %12/ 3  303  195  C3  capital A with tilde
X/Adieresis     %12/ 4  304  196  C4  capital A with diaeresis or umlaut mark
X/Aring         %12/ 5  305  197  C5  capital A with ring
X/AE            %12/ 6  306  198  C6  capital AE diphthong
X/Ccedilla      %12/ 7  307  199  C7  capital C with cedilla
X/Egrave        %12/ 8  310  200  C8  capital E with grave accent
X/Eacute        %12/ 9  311  201  C9  capital E with acute accent
X/Ecircumflex   %12/10  312  202  CA  capital E with circumflex accent
X/Edieresis     %12/11  313  203  CB  capital E with diaeresis or umlaut mark
X/Igrave        %12/12  314  204  CC  capital I with grave accent
X/Iacute        %12/13  315  205  CD  capital I with acute accent
X/Icircumflex   %12/14  316  206  CE  capital I with circumflex accent
X/Idieresis     %12/15  317  207  CF  capital I with diaeresis or umlaut mark
X/Eth           %13/ 0  320  208  D0  capital D with stroke, Icelandic eth
X/Ntilde        %13/ 1  321  209  D1  capital N with tilde
X/Ograve        %13/ 2  322  210  D2  capital O with grave accent
X/Oacute        %13/ 3  323  211  D3  capital O with acute accent
X/Ocircumflex   %13/ 4  324  212  D4  capital O with circumflex accent
X/Otilde        %13/ 5  325  213  D5  capital O with tilde
X/Odieresis     %13/ 6  326  214  D6  capital O with diaeresis or umlaut mark
X/multiply      %13/ 7  327  215  D7  multiplication sign
X/Oslash        %13/ 8  330  216  D8  capital O with slash
X/Ugrave        %13/ 9  331  217  D9  capital U with grave accent
X/Uacute        %13/10  332  218  DA  capital U with acute accent
X/Ucircumflex   %13/11  333  219  DB  capital U with circumflex accent
X/Udieresis     %13/12  334  220  DC  capital U with diaeresis or umlaut mark
X/Yacute        %13/13  335  221  DD  capital Y with acute accent
X/Thorn         %13/14  336  222  DE  capital thorn, Icelandic
X/germandbls    %13/15  337  223  DF  small sharp s, German
X/agrave        %14/ 0  340  224  E0  small a with grave accent
X/aacute        %14/ 1  341  225  E1  small a with acute accent
X/acircumflex   %14/ 2  342  226  E2  small a with circumflex accent
X/atilde        %14/ 3  343  227  E3  small a with tilde
X/adieresis     %14/ 4  344  228  E4  small a with diaeresis or umlaut mark
X/aring         %14/ 5  345  229  E5  small a with ring
X/ae            %14/ 6  346  230  E6  small ae diphthong
X/ccedilla      %14/ 7  347  231  E7  small c with cedilla
X/egrave        %14/ 8  350  232  E8  small e with grave accent
X/eacute        %14/ 9  351  233  E9  small e with acute accent
X/ecircumflex   %14/10  352  234  EA  small e with circumflex accent
X/edieresis     %14/11  353  235  EB  small e with diaeresis or umlaut mark
X/igrave        %14/12  354  236  EC  small i with grave accent
X/iacute        %14/13  355  237  ED  small i with acute accent
X/icircumflex   %14/14  356  238  EE  small i with circumflex accent
X/idieresis     %14/15  357  239  EF  small i with diaeresis or umlaut mark
X/eth           %15/ 0  360  240  F0  small d with stroke, Icelandic eth
X/ntilde        %15/ 1  361  241  F1  small n with tilde
X/ograve        %15/ 2  362  242  F2  small o with grave accent
X/oacute        %15/ 3  363  243  F3  small o with acute accent
X/ocircumflex   %15/ 4  364  244  F4  small o with circumflex accent
X/otilde        %15/ 5  365  245  F5  small o with tilde
X/odieresis     %15/ 6  366  246  F6  small o with diaeresis or umlaut mark
X/divide        %15/ 7  367  247  F7  division sign
X/oslash        %15/ 8  370  248  F8  small o with slash
X/ugrave        %15/ 9  371  249  F9  small u with grave accent
X/uacute        %15/10  372  250  FA  small u with acute accent
X/ucircumflex   %15/11  373  251  FB  small u with circumflex accent
X/udieresis     %15/12  374  252  FC  small u with diaeresis or umlaut mark
X/yacute        %15/13  375  253  FD  small y with acute accent
X/thorn         %15/14  376  254  FE  small thorn, Icelandic
X/ydieresis     %15/15  377  255  FF  small y with diaeresis or umlaut mark
X]PDEF
X
X% boolean still on stack from previous "ifelse" statement
X{restore}if
X
X`/'REENCOD % /NewName  /OldName REENCOD
X   {% def
X   PFNDFNT dup length dict % Create dictionary as big as OldName.
X   begin % Use it.
X         { % forall
X         1 index/FID ne{PDEF}{PPOP PPOP}ifelse
X         }
X      forall % For each key / value pair in OldName except /Fid, define it.
X      /Encoding ISOLatin1Encoding PDEF % Use different encoding.
X      currentdict % Push new dictionary.
X   end
X   definefont PPOP
X   }PBIND PDEF
END_OF_FILE
if test 14218 -ne `wc -c <'8859-1.m4'`; then
    echo shar: \"'8859-1.m4'\" unpacked with wrong size!
fi
# end of '8859-1.m4'
fi
if test -f 'Makefile' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'Makefile'\"
else
echo shar: Extracting \"'Makefile'\" \(7461 characters\)
sed "s/^X//" >'Makefile' <<'END_OF_FILE'
X# Makefile - main GNU make file for cz
X#
X# $Header: Makefile,v 1.18 89/09/23 17:00:19 howard Exp $
X#
X# Copyright 1989 Howard Lee Gayle
X# This file is written in the ISO 8859/1 character set.
X#
X# This program is free software; you can redistribute it and/or modify
X# it under the terms of the GNU General Public License version 1,
X# as published by the Free Software Foundation.
X#
X# This program is distributed in the hope that it will be useful,
X# but WITHOUT ANY WARRANTY; without even the implied warranty of
X# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X# GNU General Public License for more details.
X#
X# You should have received a copy of the GNU General Public License
X# along with this program; if not, write to the Free Software
X# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X
Xinclude MakeCommon
X
X# Commands:
X
X# Binary file encoder.
XABE=abe
X
X# Put a file into the distribution directory.
XDISTO=mkDistO
X
X# Echo arguments.
XECHO=echo
X
X# Elisp compiler.
XELCMP=emacs -batch -q -f batch-byte-compile
X
X# Install a non-executable file.
XINSTF=mkInstF
X
X# Install an executable file.
XINSTX=mkInstX
X
X# Lint command.
XLINT=lint
X
X# Make shar files.
XSHAR=makekit
X
X# Spelling-check LaTeX source.
XSPELL_LATEX=mkSpellLT
X
X# Command options:
X
X# Make files immune to IBM.
XABEFLAGS=+ebcdic
X
X# Set commands at start of Bourne shell files, usually absolute paths.
XBDEFS='l=lpr'
X
X# C compiler options.
XCFLAGS=-O4
X
X# C library search path.
XLIBPATH=-L/usr/local/free/howard/0
X
X# C libraries to link in.
XLIBES=-lhoward -lm
X
X# Options to lint.
XLINTFLAGS=-abchux
X
X# Lint libraries.
XLL=/usr/local/free/howard/0/llib-howard.ln
X
X
X# Directories:
X
X# Install Bourne shell files here.
XBID=../bin
X
X# Install C executables here.
XCID=../bin
X
X# Install encoding files here.
XCODEID=../lib
X
X# Install compiled elisp here.
XELID=../el
X
X# Install man entries here.
XMID=../man
X
X# Install .ps files here.
XPSID=../lib
X
X# Install .rc files here.  This must be an absolute path.
XRCID=/usr/local/free/cz/2/lib
X
X# Install test texts here.
XTID=../test
X
X# Install test PostScript files here.
XTPSID=../test
X
X# Install trigram tables here.
XTTID=../lib
X
X# Sources:
X
X# Bourne shell files.
XBS := $(filter %.b,$(SRCS))
X
X# BibTeX bibliography file.
XBIBS := $(filter %.bib,$(SRCS))
X
X# Encoding files.
XCODES:=$(filter %.code,$(SRCS))
X
X# C programs.
XCS := $(filter %.c,$(SRCS))
X
X# Elisp source.
XELS := $(filter %.el,$(SRCS))
X
X# Frequency tables.
XFRS := $(filter %.fr,$(SRCS))
X
X# C include files.
XHS := $(filter %.h,$(SRCS))
X
X# LaTeX source.
XLATEXS := $(filter %.tex,$(SRCS))
X
X# Manuals.
XM1S := $(filter %.1,$(SRCS))# Section 1.
Xms := $(M1S)
X
X# M4 macro processor sources.  (Not manual entries for section 4.)
XM4S := $(filter %.m4,$(SRCS))
X
X# M4 that will turn into PostScript.
XP4S := $(filter %.p4,$(SRCS))
X
X# Cz command files.
XRCS := $(filter %.rc,$(SRCS))
X
X# Test PostScript files.
XTPSS := $(filter %.ps,$(SRCS))
X
X# Test texts.
XTS = 8859-1.t 8859-1-fox.t T-61.t char8-dec.t char8-hex.t char8-oct.t
X
X# All ordinary source files.  Removed by make clobber.
Xsrc := $(BS) $(BIBS) $(CODES) $(CS) $(ELS) $(FRS) $(HS) \
X       $(ms) $(M4S) $(P4S) $(RCS) $(LATEXS) $(TPSS) $(TS)
X
X# Absolutely all source files.
Xallsrc := README FREEZE MakeCommon Makefile uMakefile $(src)
X
X
X# Targets and installs:
X
X# Bourne shell files.
Xbt := $(subst .b,,$(BS))
Xbi := $(patsubst %,$(BID)/%,$(bt))
X
X# C programs.
Xct := $(subst .c,,$(CS))
Xci := $(patsubst %,$(CID)/%,$(ct))
Xlt := $(patsubst %.c,%-l,$(CS))# Phony lint targets for C programs.
Xst := $(subst .c,.s,$(CS))# Assembler targets for C programs.
X
X# Encoding files.
Xcodei := $(patsubst %,$(CODEID)/%,$(CODES))
X
X# Compiled elisp.
Xelt := $(subst .el,.elc,$(ELS))
Xeli := $(patsubst %,$(ELID)/%,$(elt))
X
X# LaTeX.
Xifdef FMTLATEX
Xlatext := $(subst .tex,.texf,$(LATEXS))
Xspellt := $(patsubst %.tex,%-s,$(LATEXS))#Phony targets for spelling checking.
Xendif
X
X# Manual entries.
Xcat1i := $(patsubst %,$(MID)/cat1/%,$(M1S))
Xm1i   := $(patsubst %,$(MID)/man1/%,$(M1S))
Xcati  := $(cat1i)
Xmi    := $(m1i)
X
X# Formatted manual entries, e.g. PostScript.
Xifdef FMTMAN
Xft := $(patsubst %,%.f,$(ms))
Xendif
X
X# PostScript from M4.
Xpst := $(subst .p4,.ps,$(P4S))
Xpsi := $(patsubst %,$(PSID)/%,$(pst))
X
X# Control files.
Xrci := $(patsubst %,$(RCID)/%,$(RCS))
X
X# Test text.
Xti := $(patsubst %,$(TID)/%,$(TS))
X
X# Test PostScript.
Xtpsi := $(patsubst %,$(TPSID)/%,$(TPSS))
X
X# Trigram tables.
Xttt =  dkus.tt seus.tt
Xtti := $(patsubst %,$(TTID)/%,$(ttt))
X
Xtargets := $(bt) $(ct) $(elt) $(ft) $(latext) $(pst) $(RCS) $(TPSS) $(TS) $(ttt)
X
X# Distribution:
Xdist := $(patsubst %,$(DD)/%,$(allsrc) $(ft) $(latext))
X
X# Don't use built-in rules.
X.SUFFIXES:
X.PHONY: clean clobber default dist install shar vars $(lt) $(spellt)
X
Xdefault: $(targets)
X
Xvars:
X    @$(ECHO) 'SRCS:' $(SRCS)
X    @$(ECHO) 'BS:' $(BS)
X    @$(ECHO) 'CS:' $(CS)
X    @$(ECHO) 'CZS:' $(CZS)
X    @$(ECHO) 'ELS:' $(ELS)
X    @$(ECHO) 'HS:' $(HS)
X    @$(ECHO) 'M1S:' $(M1S)
X    @$(ECHO) 'P4S:' $(P4S)
X    @$(ECHO) 'RCS:' $(RCS)
X    @$(ECHO) 'allsrc:' $(allsrc)
X    @$(ECHO) 'bt:' $(bt)
X    @$(ECHO) 'ct:' $(ct)
X    @$(ECHO) 'elt:' $(elt)
X    @$(ECHO) 'ft:' $(ft)
X    @$(ECHO) 'lt:' $(lt)
X    @$(ECHO) 'pst:' $(pst)
X    @$(ECHO) 'st:' $(st)
X    @$(ECHO) 'CFLAGS:' $(CFLAGS)
X    @$(ECHO) 'DEFS:' $(DEFS)
X    @$(ECHO) 'dist:' $(dist)
X    @$(ECHO) 'ai:' $(ai)
X    @$(ECHO) 'bi:' $(bi)
X    @$(ECHO) 'cati:' $(cati)
X    @$(ECHO) 'm1i:' $(m1i)
X    @$(ECHO) 'psi:' $(psi)
X    @$(ECHO) 'rci:' $(rci)
X
Xclean:
X    -$(RM) depend $(st)
X
Xclobber: clean
X    -$(RM) $(src) $(targets) FREEZE FREEZE.*
X
X$(bt): %: %.b
X    $(RM) $@
X    $(ECHO) '  $(BDEFS)' > $@
X    $(CAT) $< >> $@
X    $(CHMOD) +x $@
X
X$(ct): %: %.c
X    $(CC) -o $@ $(CFLAGS) $(DEFS) -DDEFPATH='"'$(RCID)'"' $(INCLUDES) \
X        $(LIBPATH) $*.c $(LIBES)
X
X$(elt): %.elc: %.el
X    $(ELCMP) $<
X
X$(lt): %-l: %.c $(LL)
X    $(LINT) $(LINTFLAGS) $(DEFS) -DDEFPATH='"'$(RCID)'"' $(INCLUDES) $< \
X        $(LL)
X
Xifdef FMTMAN
X$(ft): %.f: %
X    $(RM) $@
X    $(FMTMAN) $< > $@
Xendif
X
Xifdef FMTLATEX
X$(latext): %.texf: %.tex $(BIBS)
X    $(FMTLATEX) $* $@
X
X$(spellt): %-s: %.tex
X    $(SPELL_LATEX) $<
Xendif
X
X$(pst): %.ps: %.p4 ps-abbrev.m4
X    $(M4) $*.p4 | \
X        $(SED) -e 's;%.*;;' \
X        -e 's;    ; ;g' \
X        -e 's;^  *;;' \
X        -e 's;  *$$;;' \
X        -e 's;  *; ;g' \
X        -e '/^$$/d' > $@
X
Xdkus.tt: 78freq2tt dkus.code dk.fr us.fr
X    $(RM) $@
X    ./78freq2tt -d dkus.code dk.fr us.fr $@
X
Xseus.tt: 78freq2tt seus.code se.fr us.fr
X    $(RM) $@
X    ./78freq2tt -d seus.code se.fr us.fr $@
X
Xshar: $(allsrc)
X    $(RM) test.abe
X    $(ABE) $(ABEFLAGS) $(TS) > test.abe
X    $(SHAR) README FREEZE MakeCommon Makefile uMakefile \
X        $(BS) $(BIBS) $(CODES) $(CS) $(ELS) $(FRS) $(HS) \
X        $(ms) $(M4S) $(P4S) $(RCS) $(LATEXS) $(TPSS) test.abe
X
X$(st): %.s: %.c
X    $(CC) -S $(DEFS) -DDEFPATH='"'$(RCID)'"' $(INCLUDES) $<
X
Xifdef WORK
X
Xdist: $(dist)
X
X$(dist): $(DD)/%: %
X    $(DISTO) $< $(DD)
X
X.DEFAULT:
X    $(UNCMPRS) $@
X
Xelse # WORK
X
Xinstall: $(bi) $(ci) $(cati) $(codei) $(eli) $(mi) $(psi) \
X         $(rci) $(ti) $(tpsi) $(tti)
X
X$(bi): $(BID)/%: %
X    $(INSTF) $< $(BID)
X
X$(ci): $(CID)/%: %
X    $(INSTX) $< $(CID)
X
X$(codei): $(CODEID)/%: %
X    $(INSTF) $< $(CODEID)
X
X$(m1i): $(MID)/man1/%: %
X    $(INSTF) $< $(MID)/man1
X
Xifdef CATMAN
X$(cat1i): $(m1i)
X    $(CATMAN) -M $(MID) 1
Xendif
X
X$(eli): $(ELID)/%: %
X    $(INSTF) $< $(ELID)
X
X$(psi): $(PSID)/%: %
X    $(INSTF) $< $(PSID)
X
X$(rci): $(RCID)/%: %
X    $(INSTF) $< $(RCID)
X
X$(ti): $(TID)/%: %
X    $(INSTF) $< $(TID)
X
X$(tpsi): $(TPSID)/%: %
X    $(INSTF) $< $(TPSID)
X
X$(tti): $(TTID)/%: %
X    $(INSTF) $< $(TTID)
X
X$(allsrc): %: $(DD)/%
X    $(DISTI) $@ $(DD)
X
X.DEFAULT:
X    $(DISTI) $@ $(DD)
X
Xendif # WORK
X
X8859-1.ps: 8859-1.m4
XT-61.ps: T-61.m4
Xinclude depend
END_OF_FILE
if test 7461 -ne `wc -c <'Makefile'`; then
    echo shar: \"'Makefile'\" unpacked with wrong size!
fi
# end of 'Makefile'
fi
if test -f 'T-61.m4' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'T-61.m4'\"
else
echo shar: Extracting \"'T-61.m4'\" \(14094 characters\)
sed "s/^X//" >'T-61.m4' <<'END_OF_FILE'
Xdnl T-61.m4 - m4 include file with CCITT T-61 reencoding
Xdnl
Xdnl $Header: T-61.m4,v 1.2 89/07/07 07:17:41 howard Exp $
Xdnl
Xdnl The following is based on code written by Timothy Hayes and Glenn Reid:
X/BuiltinEncoding()d % Display in version string.
X
X/T61Encoding[%def
X/.notdef       % 0/ 0    0    0   0  NUL (null)
X/.notdef       % 0/ 1    1    1   1  SOH (start of heading)
X/.notdef       % 0/ 2    2    2   2  STX (start of text)
X/.notdef       % 0/ 3    3    3   3  ETX (end of text)
X/.notdef       % 0/ 4    4    4   4  EOT (end of transmission)
X/.notdef       % 0/ 5    5    5   5  ENQ (enquiry)
X/.notdef       % 0/ 6    6    6   6  ACK (acknowledge)
X/.notdef       % 0/ 7    7    7   7  BEL (bell)
X/.notdef       % 0/ 8   10    8   8  BS  (backspace)
X/.notdef       % 0/ 9   11    9   9  HT  (horizontal tabulation)
X/.notdef       % 0/10   12   10   A  LF  (line feed)
X/.notdef       % 0/11   13   11   B  VT  (vertical tabulation)
X/.notdef       % 0/12   14   12   C  FF  (form feed)
X/.notdef       % 0/13   15   13   D  CR  (carriage return)
X/.notdef       % 0/14   16   14   E  SO  (shift out)
X/.notdef       % 0/15   17   15   F  SI  (shift in)
X/.notdef       % 1/ 0   20   16  10  DLE (data link escape)
X/.notdef       % 1/ 1   21   17  11  DC1 (device control 1)
X/.notdef       % 1/ 2   22   18  12  DC2 (device control 2)
X/.notdef       % 1/ 3   23   19  13  DC3 (device control 3)
X/.notdef       % 1/ 4   24   20  14  DC4 (device control 4)
X/.notdef       % 1/ 5   25   21  15  NAK (negative aknowledge)
X/.notdef       % 1/ 6   26   22  16  SYN (synchronous idle)
X/.notdef       % 1/ 7   27   23  17  ETB (end of transmission block)
X/.notdef       % 1/ 8   30   24  18  CAN (cancel)
X/.notdef       % 1/ 9   31   25  19  EM  (end of medium)
X/.notdef       % 1/10   32   26  1A  SUB (substitute character)
X/.notdef       % 1/11   33   27  1B  ESC (escape)
X/.notdef       % 1/12   34   28  1C  IS4/FS (information separator 4 / file separator)
X/.notdef       % 1/13   35   29  1D  IS3/GS (information separator 3 / group separator)
X/.notdef       % 1/14   36   30  1E  IS2/RS (information separator 2 / record separator)
X/.notdef       % 1/15   37   31  1F  IS1/US (information separator 1 / unit separator)
X/space         % 2/ 0   40   32  20  space
X/exclam        % 2/ 1   41   33  21  exclamation mark
X/quotedbl      % 2/ 2   42   34  22  quotation mark
X/numbersign    % 2/ 3   43   35  23  number sign
X/dollar        % 2/ 4   44   36  24  dollar sign
X/percent       % 2/ 5   45   37  25  percent sign
X/ampersand     % 2/ 6   46   38  26  ampersand
X/quoteright    % 2/ 7   47   39  27  apostrophe
X/parenleft     % 2/ 8   50   40  28  left parenthesis
X/parenright    % 2/ 9   51   41  29  right parenthesis
X/asterisk      % 2/10   52   42  2A  asterisk
X/plus          % 2/11   53   43  2B  plus sign
X/comma         % 2/12   54   44  2C  comma
X/minus         % 2/13   55   45  2D  hyphen, minus sign
X/period        % 2/14   56   46  2E  full stop
X/slash         % 2/15   57   47  2F  solidus
X/zero          % 3/ 0   60   48  30  digit zero
X/one           % 3/ 1   61   49  31  digit one
X/two           % 3/ 2   62   50  32  digit two
X/three         % 3/ 3   63   51  33  digit three
X/four          % 3/ 4   64   52  34  digit four
X/five          % 3/ 5   65   53  35  digit five
X/six           % 3/ 6   66   54  36  digit six
X/seven         % 3/ 7   67   55  37  digit seven
X/eight         % 3/ 8   70   56  38  digit eight
X/nine          % 3/ 9   71   57  39  digit nine
X/colon         % 3/10   72   58  3A  colon
X/semicolon     % 3/11   73   59  3B  semicolon
X/less          % 3/12   74   60  3C  less-than sign
X/equal         % 3/13   75   61  3D  equals sign
X/greater       % 3/14   76   62  3E  greater-than sign
X/question      % 3/15   77   63  3F  question mark
X/at            % 4/ 0  100   64  40  commercial at
X/A             % 4/ 1  101   65  41  A
X/B             % 4/ 2  102   66  42  B
X/C             % 4/ 3  103   67  43  C
X/D             % 4/ 4  104   68  44  D
X/E             % 4/ 5  105   69  45  E
X/F             % 4/ 6  106   70  46  F
X/G             % 4/ 7  107   71  47  G
X/H             % 4/ 8  110   72  48  H
X/I             % 4/ 9  111   73  49  I
X/J             % 4/10  112   74  4A  J
X/K             % 4/11  113   75  4B  K
X/L             % 4/12  114   76  4C  L
X/M             % 4/13  115   77  4D  M
X/N             % 4/14  116   78  4E  N
X/O             % 4/15  117   79  4F  O
X/P             % 5/ 0  120   80  50  P
X/Q             % 5/ 1  121   81  51  Q
X/R             % 5/ 2  122   82  52  R
X/S             % 5/ 3  123   83  53  S
X/T             % 5/ 4  124   84  54  T
X/U             % 5/ 5  125   85  55  U
X/V             % 5/ 6  126   86  56  V
X/W             % 5/ 7  127   87  57  W
X/X             % 5/ 8  130   88  58  X
X/Y             % 5/ 9  131   89  59  Y
X/Z             % 5/10  132   90  5A  Z
X/bracketleft   % 5/11  133   91  5B  left square bracket
X/backslash     % 5/12  134   92  5C  reverse solidus
X/bracketright  % 5/13  135   93  5D  right square bracket
X/asciicircum   % 5/14  136   94  5E  circumflex accent
X/underscore    % 5/15  137   95  5F  low line, underline
X/quoteleft     % 6/ 0  140   96  60  grave accent
X/a             % 6/ 1  141   97  61  a
X/b             % 6/ 2  142   98  62  b
X/c             % 6/ 3  143   99  63  c
X/d             % 6/ 4  144  100  64  d
X/e             % 6/ 5  145  101  65  e
X/f             % 6/ 6  146  102  66  f
X/g             % 6/ 7  147  103  67  g
X/h             % 6/ 8  150  104  68  h
X/i             % 6/ 9  151  105  69  i
X/j             % 6/10  152  106  6A  j
X/k             % 6/11  153  107  6B  k
X/l             % 6/12  154  108  6C  l
X/m             % 6/13  155  109  6D  m
X/n             % 6/14  156  110  6E  n
X/o             % 6/15  157  111  6F  o
X/p             % 7/ 0  160  112  70  p
X/q             % 7/ 1  161  113  71  q
X/r             % 7/ 2  162  114  72  r
X/s             % 7/ 3  163  115  73  s
X/t             % 7/ 4  164  116  74  t
X/u             % 7/ 5  165  117  75  u
X/v             % 7/ 6  166  118  76  v
X/w             % 7/ 7  167  119  77  w
X/x             % 7/ 8  170  120  78  x
X/y             % 7/ 9  171  121  79  y
X/z             % 7/10  172  122  7A  z
X/braceleft     % 7/11  173  123  7B  left curly bracket
X/bar           % 7/12  174  124  7C  vertical line
X/braceright    % 7/13  175  125  7D  right curly bracket
X/asciitilde    % 7/14  176  126  7E  tilde
X/.notdef       % 7/15  177  127  7F  DEL (delete)
X/emdash        % 8/ 0  200  128  80
X/Lslash        % 8/ 1  201  129  81  capital L with stroke
X/OE            % 8/ 2  202  130  82  capital OE ligature
X/Scaron        % 8/ 3  203  131  83  capital S with caron
X/Ydieresis     % 8/ 4  204  132  84  capital Y with diaeresis or umlaut mark
X/Zcaron        % 8/ 5  205  133  85  capital Z with caron
X/.notdef       % 8/ 6  206  134  86
X/.notdef       % 8/ 7  207  135  87
X/endash        % 8/ 8  210  136  88
X/lslash        % 8/ 9  211  137  89  small l with stroke
X/oe            % 8/10  212  138  8A  small oe ligature
X/scaron        % 8/11  213  139  8B  small s with caron
X/.notdef       % 8/12  214  140  8C
X/zcaron        % 8/13  215  141  8D  small z with caron
X/.notdef       % 8/14  216  142  8E
X/.notdef       % 8/15  217  143  8F
X/dotlessi      % 9/ 0  220  144  90
X/grave         % 9/ 1  221  145  91
X/acute         % 9/ 2  222  146  92
X/circumflex    % 9/ 3  223  147  93
X/tilde         % 9/ 4  224  148  94
X/macron        % 9/ 5  225  149  95
X/breve         % 9/ 6  226  150  96
X/dotaccent     % 9/ 7  227  151  97
X/dieresis      % 9/ 8  230  152  98
X/.notdef       % 9/ 9  231  153  99
X/ring          % 9/10  232  154  9A
X/cedilla       % 9/11  233  155  9B
X/.notdef       % 9/12  234  156  9C
X/hungarumlaut  % 9/13  235  157  9D
X/ogonek        % 9/14  236  158  9E
X/caron         % 9/15  237  159  9F
X/space         %10/ 0  240  160  A0  NBSP (no-break space)
X/exclamdown    %10/ 1  241  161  A1  inverted exclamation mark
X/cent          %10/ 2  242  162  A2  cent sign
X/sterling      %10/ 3  243  163  A3  pound sign
X/currency      %10/ 4  244  164  A4  general currency sign
X/yen           %10/ 5  245  165  A5  yen sign
X/brokenbar     %10/ 6  246  166  A6  broken vertical line
X/section       %10/ 7  247  167  A7  section sign
X/dieresis      %10/ 8  250  168  A8  diaeresis
X/copyright     %10/ 9  251  169  A9  copyright sign
X/ordfeminine   %10/10  252  170  AA  ordinal indicator, feminine
X/guillemotleft %10/11  253  171  AB  angle quotation mark left
X/logicalnot    %10/12  254  172  AC  not sign
X/hyphen        %10/13  255  173  AD  soft hyphen
X/registered    %10/14  256  174  AE  registered sign
X/macron        %10/15  257  175  AF  macron
X/degree        %11/ 0  260  176  B0  degree sign
X/plusminus     %11/ 1  261  177  B1  plus or minus sign
X/twosuperior   %11/ 2  262  178  B2  superscript two
X/threesuperior %11/ 3  263  179  B3  superscript three
X/acute         %11/ 4  264  180  B4  acute accent
X/mu            %11/ 5  265  181  B5  micro sign
X/paragraph     %11/ 6  266  182  B6  pilcrow
X/periodcentered%11/ 7  267  183  B7  middle dot
X/cedilla       %11/ 8  270  184  B8  cedilla
X/onesuperior   %11/ 9  271  185  B9  superscript one
X/ordmasculine  %11/10  272  186  BA  ordinal indicator, masculine
X/guillemotright%11/11  273  187  BB  angle quotation mark right
X/onequarter    %11/12  274  188  BC  fraction one-quarter
X/onehalf       %11/13  275  189  BD  fraction one-half
X/threequarters %11/14  276  190  BE  fraction three-quarters
X/questiondown  %11/15  277  191  BF  inverted question mark
X/Agrave        %12/ 0  300  192  C0  capital A with grave accent
X/Aacute        %12/ 1  301  193  C1  capital A with acute accent
X/Acircumflex   %12/ 2  302  194  C2  capital A with circumflex accent
X/Atilde        %12/ 3  303  195  C3  capital A with tilde
X/Adieresis     %12/ 4  304  196  C4  capital A with diaeresis or umlaut mark
X/Aring         %12/ 5  305  197  C5  capital A with ring
X/AE            %12/ 6  306  198  C6  capital AE diphthong
X/Ccedilla      %12/ 7  307  199  C7  capital C with cedilla
X/Egrave        %12/ 8  310  200  C8  capital E with grave accent
X/Eacute        %12/ 9  311  201  C9  capital E with acute accent
X/Ecircumflex   %12/10  312  202  CA  capital E with circumflex accent
X/Edieresis     %12/11  313  203  CB  capital E with diaeresis or umlaut mark
X/Igrave        %12/12  314  204  CC  capital I with grave accent
X/Iacute        %12/13  315  205  CD  capital I with acute accent
X/Icircumflex   %12/14  316  206  CE  capital I with circumflex accent
X/Idieresis     %12/15  317  207  CF  capital I with diaeresis or umlaut mark
X/Eth           %13/ 0  320  208  D0  capital D with stroke, Icelandic eth
X/Ntilde        %13/ 1  321  209  D1  capital N with tilde
X/Ograve        %13/ 2  322  210  D2  capital O with grave accent
X/Oacute        %13/ 3  323  211  D3  capital O with acute accent
X/Ocircumflex   %13/ 4  324  212  D4  capital O with circumflex accent
X/Otilde        %13/ 5  325  213  D5  capital O with tilde
X/Odieresis     %13/ 6  326  214  D6  capital O with diaeresis or umlaut mark
X/multiply      %13/ 7  327  215  D7  multiplication sign
X/Oslash        %13/ 8  330  216  D8  capital O with slash
X/Ugrave        %13/ 9  331  217  D9  capital U with grave accent
X/Uacute        %13/10  332  218  DA  capital U with acute accent
X/Ucircumflex   %13/11  333  219  DB  capital U with circumflex accent
X/Udieresis     %13/12  334  220  DC  capital U with diaeresis or umlaut mark
X/Yacute        %13/13  335  221  DD  capital Y with acute accent
X/Thorn         %13/14  336  222  DE  capital thorn, Icelandic
X/germandbls    %13/15  337  223  DF  small sharp s, German
X/agrave        %14/ 0  340  224  E0  small a with grave accent
X/aacute        %14/ 1  341  225  E1  small a with acute accent
X/acircumflex   %14/ 2  342  226  E2  small a with circumflex accent
X/atilde        %14/ 3  343  227  E3  small a with tilde
X/adieresis     %14/ 4  344  228  E4  small a with diaeresis or umlaut mark
X/aring         %14/ 5  345  229  E5  small a with ring
X/ae            %14/ 6  346  230  E6  small ae diphthong
X/ccedilla      %14/ 7  347  231  E7  small c with cedilla
X/egrave        %14/ 8  350  232  E8  small e with grave accent
X/eacute        %14/ 9  351  233  E9  small e with acute accent
X/ecircumflex   %14/10  352  234  EA  small e with circumflex accent
X/edieresis     %14/11  353  235  EB  small e with diaeresis or umlaut mark
X/igrave        %14/12  354  236  EC  small i with grave accent
X/iacute        %14/13  355  237  ED  small i with acute accent
X/icircumflex   %14/14  356  238  EE  small i with circumflex accent
X/idieresis     %14/15  357  239  EF  small i with diaeresis or umlaut mark
X/eth           %15/ 0  360  240  F0  small d with stroke, Icelandic eth
X/ntilde        %15/ 1  361  241  F1  small n with tilde
X/ograve        %15/ 2  362  242  F2  small o with grave accent
X/oacute        %15/ 3  363  243  F3  small o with acute accent
X/ocircumflex   %15/ 4  364  244  F4  small o with circumflex accent
X/otilde        %15/ 5  365  245  F5  small o with tilde
X/odieresis     %15/ 6  366  246  F6  small o with diaeresis or umlaut mark
X/divide        %15/ 7  367  247  F7  division sign
X/oslash        %15/ 8  370  248  F8  small o with slash
X/ugrave        %15/ 9  371  249  F9  small u with grave accent
X/uacute        %15/10  372  250  FA  small u with acute accent
X/ucircumflex   %15/11  373  251  FB  small u with circumflex accent
X/udieresis     %15/12  374  252  FC  small u with diaeresis or umlaut mark
X/yacute        %15/13  375  253  FD  small y with acute accent
X/thorn         %15/14  376  254  FE  small thorn, Icelandic
X/ydieresis     %15/15  377  255  FF  small y with diaeresis or umlaut mark
X]PDEF
X
X`/'REENCOD % /NewName  /OldName
X   {% def
X   PFNDFNT dup length dict % Create dictionary as big as OldName.
X   begin % Use it.
X         {% forall
X         1 index/FID ne{PDEF}{PPOP PPOP}ifelse
X         }
X      forall % For each key / value pair in OldName except /Fid, define it.
X      /Encoding T61Encoding PDEF % Use different encoding.
X      currentdict
X   end
X   definefont PPOP
X}PBIND PDEF
END_OF_FILE
if test 14094 -ne `wc -c <'T-61.m4'`; then
    echo shar: \"'T-61.m4'\" unpacked with wrong size!
fi
# end of 'T-61.m4'
fi
if test -f 'bytefreq.c' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'bytefreq.c'\"
else
echo shar: Extracting \"'bytefreq.c'\" \(4601 characters\)
sed "s/^X//" >'bytefreq.c' <<'END_OF_FILE'
X/*
X * bytefreq - frequency-count the bytes in a list of files
X */
X
X#ifndef lint
Xstatic char _cpyrgt[] = "Copyright 1989 Howard Lee Gayle";
X#endif lint
X
X/*
X * This program is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License version 1,
X * as published by the Free Software Foundation.
X *
X * This program is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X
X#include <stdio.h>
X#include <howard/port.h>
X#include <howard/version.h>
X#include <howard/usage.h>
X
XMAINVER ("@(#)$Header: bytefreq.c,v 1.8 89/08/18 08:14:36 howard Exp $");
XUSAGE ("[-b] [-d] < file-list");
X
X#include <ctype.h>
X#include <howard/malf.h>
X#include <howard/registers.i>
X
Xtypedef struct /* Data for one byte.*/
X   {
X   double b_freq; /* Frequency.*/
X   ulongT b_cnt;  /* Count.*/
X   rcharT b_byte; /* The byte.*/
X   }
XbyT;
XPRIVATE byT bytes[256]; /* The byte array.*/
X
XPRIVATE char eIntern[] = "Internal error %s";
X
X/* output - output the frequency table                                  */
X
XPRIVATE void output()
X
X/* Function:
X *    Display bytes[] on standard output.
X */
X{
XR1 byT    *bp; /* Steps through bytes[].*/
XR2 rcharT  b;  /* Current byte.*/
X
XPUTCHAR ('\n');
Xfor (bp = bytes; bp != &bytes[256]; ++bp)
X   {
X   b = bp->b_byte;
X   PRINTF ("%2d/%2d  8#%03o  %3d  16#%02x  %c  %10lu  %12.10f\n",
X      b / 16, b % 16, b, b, b, (isprint (b) ? b : ' '),
X      bp->b_cnt, bp->b_freq);
X   }
X}
X
X/* qsort1 - auxiliary function for sorting bytes[]                         */
X
XPRIVATE int qsort1 (bp1, bp2)
XR1 byT *bp1;
XR2 byT *bp2;
X
X/* Function:
X *    Called from qsort when sorting bytes[] into descending order.
X * Returns:
X *
X */
X{
Xif (bp2->b_cnt >  bp1->b_cnt) return (1);
Xif (bp2->b_cnt == bp1->b_cnt) return (0);
Xreturn (-1);
X}
X
X/* main - main function                            */
X
XPUBLIC int main (argc, argv)
X   int    argc; /* Number of arguments.*/
XR6 bStrT *argv; /* Points to array of argument strings.*/
X
X/* Function:
X *    Compute a byte-frequency table of a list of files.
X * Algorithm:
X *    Decode the arguments.  Read the standard input line by line.
X *      Treat each line as a file name and open it.
X *      Read each file byte by byte.
X *      Update the count for the corresponding byte.
X *      For output in byte order, call output().
X *      For output in decreasing frequency order, sort, then call output().
X */
X
X{
XR5     rcharT    c;                   /* Option letter.*/
Xextern int       optind;              /* See getopt (3).*/
Xextern cStrT     optarg;              /* See getopt (3).*/
XR3     ulongT    t = 0;               /* Total bytes.*/
XR1     streamT   ifp;                 /* Current input stream.*/
XR2     rcharT    b;                   /* Current input byte.*/
XR4     byT      *bp;                  /* Steps through bytes[].*/
X       double    dt;                  /* Total bytes. */
XR7     boolT     byteflg = FALSE;     /* Set for output in byte order.*/
XR8     boolT     descendflg = FALSE;  /* Set for output in descending order.*/
X       unsigned  ln = 0;              /* Line number (not used).*/
X       byteT     ib[MFILE];           /* Input line buffer. */
X
Xwhile (EOF != (c = getopt (argc, (cStrT *) argv, "bd")))
X   {
X   switch (c)
X      {
X      case '?':
X         usage();
X         break;
X      case 'b':
X         byteflg = TRUE;
X         break;
X      case 'd':
X         descendflg = TRUE;
X         break;
X      default:
X         malf1 (eIntern, "main 1");
X         break;
X      }
X   }
Xargv += optind;
Xif ((NULBSTR != *argv) || (!byteflg && !descendflg)) usage();
Xfor (b = 0; b != 256; ++b)
X   bytes[b].b_byte = b;
Xwhile (NULBSTR != getlin (ib, MFILE, stdin, S("Standard Input"), &ln, 0))
X   {
X   ifp = mfopen (ib, "r");
X   while (EOF != (b = getc (ifp)))
X      {
X      ++bytes[b].b_cnt;
X      ++t;
X      }
X   if (ferror (ifp)) malf1 ("%s: Read error", ib);
X   mfclose (ifp, ib);
X   }
XPRINTF ("Total bytes: %lu\n", t);
Xif (0 != t)
X   {
X   dt = t;
X   for (bp = bytes; bp != &bytes[256]; ++bp)
X      bp->b_freq = ((double) bp->b_cnt) / dt;
X   if (byteflg) output();
X   if (descendflg)
X      {
X      qsort ((cStrT) bytes, 256, sizeof (byT), qsort1);
X      output();
X      }
X   }
Xmfflush (stdout, S("Standard Output"));
Xexit (SUCCESS);
X
X#ifdef lint
Xreturn (SUCCESS);
X#endif
X}
END_OF_FILE
if test 4601 -ne `wc -c <'bytefreq.c'`; then
    echo shar: \"'bytefreq.c'\" unpacked with wrong size!
fi
# end of 'bytefreq.c'
fi
if test -f 'cz-Gnews.el' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'cz-Gnews.el'\"
else
echo shar: Extracting \"'cz-Gnews.el'\" \(1539 characters\)
sed "s/^X//" >'cz-Gnews.el' <<'END_OF_FILE'
X;; cz-Gnews.el - Gnews interface to cz(1)
X;;
X;; $Header: cz-Gnews.el,v 1.2 89/09/22 07:41:31 howard Exp $
X;;
X;; Copyright   1989 Howard Lee Gayle
X;; This file is written in the ISO 8859/1 character set.
X;;
X;; $Header: cz-Gnews.el,v 1.2 89/09/22 07:41:31 howard Exp $
X;;
X;; This program is free software; you can redistribute it and/or modify
X;; it under the terms of the GNU General Public License version 1,
X;; as published by the Free Software Foundation.
X;;
X;; This program is distributed in the hope that it will be useful,
X;; but WITHOUT ANY WARRANTY; without even the implied warranty of
X;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X;; GNU General Public License for more details.
X;;
X;; You should have received a copy of the GNU General Public License
X;; along with this program; if not, write to the Free Software
X;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X
X(require 'cz)
X(require 'hook-add)
X
X(defun Gnews-cz ()
X   "Laser-print the current article."
X   (interactive)
X   (if article-grab-point (article-forward-intern nil))
X   (cz-region-1 1 (article-max)
X      (concat
X         (article-field "Newsgroups")
X         "."
X         (int-to-string article-current)
X         " "
X         (cz-simple-from (article-field "From"))
X         ": "
X         (article-field "Subject")
X      )
X   )
X)
X
X(defun Gnews-cz-bind ()
X   "Set up local key binding for Gnews-cz."
X   (local-set-key "L" 'Gnews-cz)
X)
X
X(hook-add 'article-hook 'Gnews-cz-bind)
X(hook-add 'group-hook   'Gnews-cz-bind)
X
X(provide 'Gnews-cz)
END_OF_FILE
if test 1539 -ne `wc -c <'cz-Gnews.el'`; then
    echo shar: \"'cz-Gnews.el'\" unpacked with wrong size!
fi
# end of 'cz-Gnews.el'
fi
if test -f 'dkus.code' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'dkus.code'\"
else
echo shar: Extracting \"'dkus.code'\" \(1200 characters\)
sed "s/^X//" >'dkus.code' <<'END_OF_FILE'
X; dkus.code - trigram letter encoding for Danish or US English
X;
X; Copyright 1989 Howard Lee Gayle
X; This file is written in the ISO 8859/1 character set.
X;
X; $Header: dkus.code,v 1.1 89/08/26 13:33:36 howard Exp $
X;
X; This program is free software; you can redistribute it and/or modify
X; it under the terms of the GNU General Public License version 1,
X; as published by the Free Software Foundation.
X;
X; This program is distributed in the hope that it will be useful,
X; but WITHOUT ANY WARRANTY; without even the implied warranty of
X; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
X; GNU General Public License for more details.
X;
X; You should have received a copy of the GNU General Public License
X; along with this program; if not, write to the Free Software
X; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X
X 0 'a' 'A'
X 1 'b' 'B'
X 2 'c' 'C'
X 3 'd' 'D'
X 4 'e' 'E'
X 5 'f' 'F'
X 6 'g' 'G'
X 7 'h' 'H'
X 8 'i' 'I'
X 9 'j' 'J'
X10 'k' 'K'
X11 'l' 'L'
X12 'm' 'M'
X13 'n' 'N'
X14 'o' 'O'
X15 'p' 'P'
X16 'q' 'Q'
X17 'r' 'R'
X18 's' 'S'
X19 't' 'T'
X20 'u' 'U'
X21 'v' 'V'
X22 'w' 'W'
X23 'x' 'X'
X24 'y' 'Y'
X25 'z' 'Z'
X26 '}' ']' 8#345# 8#305#
X27 '{' '[' 8#346# 8#306#
X28 '|' '\' 8#370# 8#330#
END_OF_FILE
if test 1200 -ne `wc -c <'dkus.code'`; then
    echo shar: \"'dkus.code'\" unpacked with wrong size!
fi
# end of 'dkus.code'
fi
echo shar: End of archive 4 \(of 14\).
cp /dev/null ark4isdone
MISSING=""
for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 ; do
    if test ! -f ark${I}isdone ; then
    MISSING="${MISSING} ${I}"
    fi
done
if test "${MISSING}" = "" ; then
    echo You have unpacked all 14 archives.
    rm -f ark[1-9]isdone ark[1-9][0-9]isdone
else
    echo You still need to unpack the following archives:
    echo "        " ${MISSING}
fi
##  End of shell archive.
exit 0